home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / Rexx / UnZoom.AmiCAD < prev    next >
Text File  |  1998-03-02  |  666b  |  25 lines
  1. /* Script permettant de récupérer le mode d'écran utilisé avant l'appel du script Zoom */
  2. /* © R.Florac, 3 Mars 1998, version 1.1 */
  3.  
  4. options results
  5.  
  6. signal on error     /* pour l'interception des erreurs */
  7. signal on syntax
  8.  
  9. 'IF(MODE_ÉCRAN==0,MESSAGE("Zoom pas encore appelé"):0,-1)'
  10. if result=-1 then do
  11.     'SCREEN(MODE_ÉCRAN,LARGEUR_ÉCRAN,HAUTEUR_ÉCRAN,FONTE,TAILLE_FONTE)'
  12.     'WINDOW(X_GAUCHE,Y_HAUT,LARGEUR_FENÊTRE,HAUTEUR_FENÊTRE)'
  13. end
  14. exit
  15.  
  16. /* Traitement des erreurs, interruption du programme */
  17. syntax:
  18. erreur=RC
  19. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  20. exit
  21.  
  22. error:
  23. 'MESSAGE("Erreur en ligne 'SIGL'")'
  24. exit
  25.